Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/likene1a/myprog5.frm

Text File | 1999-09-24 | 11KB | 386 lines

VERSION 5.00
Begin VB.Form Form3
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Message manager"
   ClientHeight    =   3000
   ClientLeft      =   3900
   ClientTop       =   2490
   ClientWidth     =   5280
   ControlBox      =   0   'False
   BeginProperty Font
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3000
   ScaleWidth      =   5280
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command20
      Caption         =   "Abort/ Retry/ Ignore"
      Height          =   495
      Left            =   3960
      TabIndex        =   26
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton Command25
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "Exit"
      Height          =   375
      Left            =   3960
      TabIndex        =   2
      Top             =   0
      Width           =   1335
   End
   Begin VB.CommandButton Command17
      Caption         =   "Abort/ Retry/ Ignore"
      Height          =   495
      Left            =   2640
      TabIndex        =   19
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton Command18
      Caption         =   "Abort/ Retry/ Ignore"
      Height          =   495
      Left            =   1320
      TabIndex        =   20
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton Command19
      Caption         =   "Abort/ Retry/ Ignore"
      Height          =   495
      Left            =   0
      TabIndex        =   21
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton Command16
      Caption         =   "Yes/ no"
      Height          =   375
      Left            =   3960
      TabIndex        =   18
      Top             =   2160
      Width           =   1335
   End
   Begin VB.CommandButton Command15
      Caption         =   "Yes/ no"
      Height          =   375
      Left            =   2640
      TabIndex        =   17
      Top             =   2160
      Width           =   1335
   End
   Begin VB.CommandButton Command14
      Caption         =   "Yes/ no"
      Height          =   375
      Left            =   1320
      TabIndex        =   16
      Top             =   2160
      Width           =   1335
   End
   Begin VB.CommandButton Command13
      Caption         =   "Yes/ no"
      Height          =   375
      Left            =   0
      TabIndex        =   15
      Top             =   2160
      Width           =   1335
   End
   Begin VB.CommandButton Command12
      Caption         =   "Retry/ cancel"
      Height          =   375
      Left            =   3960
      TabIndex        =   14
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command11
      Caption         =   "Retry/ cancel"
      Height          =   375
      Left            =   2640
      TabIndex        =   13
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command10
      Caption         =   "Retry/ cancel"
      Height          =   375
      Left            =   1320
      TabIndex        =   12
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command9
      Caption         =   "Retry/ cancel"
      Height          =   375
      Left            =   0
      TabIndex        =   11
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command8
      Caption         =   "Ok/ cancel"
      Height          =   375
      Left            =   3960
      TabIndex        =   10
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command7
      Caption         =   "Ok"
      Height          =   375
      Left            =   3960
      TabIndex        =   9
      Top             =   1080
      Width           =   1335
   End
   Begin VB.CommandButton Command6
      Caption         =   "Ok/ cancel"
      Height          =   375
      Left            =   2640
      TabIndex        =   8
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command5
      Caption         =   "Ok"
      Height          =   375
      Left            =   2640
      TabIndex        =   7
      Top             =   1080
      Width           =   1335
   End
   Begin VB.CommandButton Command4
      Caption         =   "Ok/ cancel"
      Height          =   375
      Left            =   1320
      TabIndex        =   6
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command3
      Caption         =   "Ok/ cancel"
      Height          =   375
      Left            =   0
      TabIndex        =   5
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command2
      Caption         =   "Ok"
      Height          =   375
      Left            =   1320
      TabIndex        =   4
      Top             =   1080
      Width           =   1335
   End
   Begin VB.CommandButton Command1
      Caption         =   "Ok"
      Height          =   375
      Left            =   0
      TabIndex        =   3
      Top             =   1080
      Width           =   1335
   End
   Begin VB.TextBox Text1
      Height          =   315
      Left            =   0
      TabIndex        =   1
      Text            =   "C:/ not found..."
      Top             =   360
      Width           =   5295
   End
   Begin VB.Label Label5
      Caption         =   "Stop"
      Height          =   255
      Left            =   4320
      TabIndex        =   25
      Top             =   720
      Width           =   615
   End
   Begin VB.Label Label4
      Caption         =   "Warning"
      Height          =   255
      Left            =   2880
      TabIndex        =   24
      Top             =   720
      Width           =   735
   End
   Begin VB.Label Label3
      Caption         =   "Information"
      Height          =   255
      Left            =   1440
      TabIndex        =   23
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label2
      Caption         =   "Qusetion"
      Height          =   255
      Left            =   240
      TabIndex        =   22
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label1
      Caption         =   "Message:"
      Height          =   255
      Left            =   2160
      TabIndex        =   0
      Top             =   0
      Width           =   855
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mmflag As Boolean
Dim sax As Integer
Dim Say As Integer

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
   ByVal nCmdShow As Long) As Long

 Private Const SW_HIDE = 0
 Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
MsgBox Text1.Text, 32 +